home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
aminet
/
comm
/
fido
/
wpl_intro.lzh
/
bin
/
restart
< prev
next >
Wrap
Text File
|
1993-01-28
|
1KB
|
38 lines
failat 999
; carefull! - This has to be an active slave port name - A generic method will
; be set up soon that will involve wpl.library
rx "exit showlist('p','SLAVE2')"
if ${RC} eq 1
rx "address 'SLAVE2' 'abort'"
echo "Already running copy of WPL Slave2 aborted"
endif
rx "exit showlist('p','SLAVE1')"
if ${RC} eq 1
rx "address 'SLAVE1' 'abort'"
echo "Already running copy of WPL Slave1 aborted"
endif
; Now, get the logging system up and running if it's not already.
rx "exit showlist('p','WELMATLOG')"
if ${RC} eq 0
run >nil: logproc
rx "exit showlist('p','WELMATLOG')"
if ${RC} eq 0
echo "Waiting for Log proc"
waitforport "WELMATLOG"
endif
echo "Log port ready"
rx "address 'WELMATLOG' 'OpenLog file f network:logs/wpl.log'"
rx "address 'WELMATLOG' 'OpenLog wind w RAW:690/100/680/160/NewLog Window/inactive'"
rx "address 'WELMATLOG' 'AddLogSes all wind file'"
else
echo "Logging System already active"
endif
echo "Launching WPL"
newshell window "raw:780/0/150/255/WPL Consol/inactive/backdrop" from network:bin/startWPL
waitforport SLAVE2
newshell window "raw:930/0/450/255/WSCHED Consol/inactive/backdrop" from network:bin/startwsched